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14800 --- CHANNEL/DISKETTE UNIT P/N=1635063 EC=578757 PAGE 09 14800 --- CHANNEL/DISKETTE UNIT P/N=1635063 EC=578757 PAGE O9A 
LOCTR OBJECT TEXT STMT SOUKCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SCURCE STATEMENT COPYRIGHT IBM CORP 1976 
00313A 0000 1941 CTROU DC x*o0008 COUNTER 4 2058+* THIS ROUTINE HAS THE FOLLOWING ENTRIES: 
00313C 0000 1942 CTROS DC X*00008 COUNTER 5 2059+% 
00313E 0000 1943 SAVR3 DC x*00008 SAVE AREA 2060+* --> BAL XIO OR XEQ ANY CYCLE STEAL COMMAND, MOD=0 
003140 0000 1944 SAVRS5 DC x*00008 SAVE AREA 2061+* ~-> BAL XIO1 MOD PARM PRELOADED IN ‘'tomobe 
003142 0000 1945 SIDE DC X*0000" SIDE BEING TESTED 2062+* --> BAL XIOCS,R6 OR XEQ START CYCLE STEAL STATUS, MOD=F 
003744 0000 1946 TRK DC Xx*00008 CURRENT CYLINDER NUMBER 2063+* --> BAL XIOCS~4, R6 AUTO CS STATUS (FOLLOWING OTHER XIO 
003146 0000 1947 WIDAT DC x*00008 WORK AREA 2064+* _ AND DOES NOT POST INTERRUPT STATUS) 
003148 4coo 1948 SVSIX DC X*4coo® CYLINDER NUMBER 76 2065+* 
1950 COPY T4&8ICG 2066+* RETURN CONTROL 
1951 * 4/15/76 2067+* 
1952 * EXECUTE INPUT & OUTPUT COMMANDS 2068+* BXS (Fe 2) RETURN TO USER NO ERROR 
1953 * TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 2069+* OF B R6f + RETURN AND RETRY ON ERROR 
1954 * EACH OF THESE ENTRIES SET R7 WITH THE ADRS OF ITS PARAMETER VAIWAUL ER ESS LSS LSS SS SSL TESST SET TS SSS TTS STS SESS CSS LSPS SSS SSS TS STL SS Se PS SSS SS tes 2S 
1955 * LIST AND ANY SPECIAL SWITCHES BEFORE BRANCHING TO THE 0031AA CB25 32AE 2072+ X10 MVWZ IOMOD,R3 SET MOF OF O FOR CYCLE STEAL OP 
1956 * SUPVR CALL. 0031AE 500A 2073+, J XIO1 CS I/O'S ARE NOT RETRIED 
. + 
1958 * THIS SUBROUTINE WILL CHECK FOR THE FOLLOWING: 0031BO 4CAA 2075+ TBTR R4,CE RESET CS STATUS INTER ERROR INDICAT. 
eos ||US OO31B4 4030 32AC 30AE © S077#XIOCS AVA” CeDER LODCR SET UP CONTROL BLOCK FOR SVC CALL 
* - LOST INTERRUETS BY TIMING OUT A CCUNTING LOOP 
1961 * 2. ERROR INTERRUPTS RECEIVED FROM SUEVR OO31BA 4020 32AE OOOF 2078+ MVWI X*000F*, romMoD SET CYCLE STEAL MODIFIER 
1962 * 3. LCOP ON ERROR, THE CALL MUST HAVE A *DC* STATEMENT AFTER 0031CO 4C238 2079+ TBT tr cS) IS CS IN PROGRESS, ERROR CONDITION 
1963 * - THE CALL WITH THE ADDRESS OF THE RETRY STATEMENT 0031C2 1213 2080+ JON 102 * YES, BYPASS SAVING I/O ADRS 
1964 * 4. CYCLE STEAL IN PROGRESS WITH AN ERROR 0031C4 6E0OD 2EBC 2081#XI01 MVW  R6,LSIIO SAVE TAK FOR RETRY IF REQUESTED 
1965 * 5: SOMETHING ELSE 0031C8 4324 2EC6 2082+ MVA  DCBUF,R3 SET UP TO ADRS TO MOVE DCB TABLE 
1368 ¢ goss Spgs 228 ogre AYE, 4opgEeR = ALE GunDES He REYES SEONS NATE 
1967 * THIS ROUTINE HAS THE FOLLOWING ENTRIES: 
1968 * : 0031D2 2D64 2085+ MVFN §R8) $3) MOVE 1 STATUS WORD AND ADJUST 
1969 * 1 BAL  $SEEK,R6 SEEK 0031D4 OBFF 2086+ MVBI 255, CLEAR CYCLE STATUS BUFFER 
sa 4 goaiBe eae 226 sass Aver GBbaae a oe aeEaee 
* 2 BAL $RECL,R6 RECALIBRATE + e 
1972 * = . 0031DC 2BAC 2089+ FFN R3 485) * 
1973 * 3 BAL  $RDID,R6 READ SECTOR ID 0031DE 4020 2EB8 0708 2090+ Mvwxr x'6708*,SIOIN OVERLAY OLD CONDITION CODES 
1974 * ie 0031E4 CB25 2EBA 2091+ MVWZ $ISB,R3 ZERO OUT OLD ISB VALUE 
1975 * 4 BAL $kD,R6 READ 2092+* 
1976 * ce QQO31E8 4CA1 209 3+ TBTR (R4,ER RESFT ANY ERROR BEFORE I/O COMMAND 
1977 * 5 BAL  $KDVY,R6 REAL VERIFY 0031bA 4CA3 20944#XI02 TBTR (RA IN CLEAR INTERRUPT RECEIVED CNTL BIT 
1978 * iz OO31EC 4724 32A8 2095+ MVA CBLK, R7 SET UP CONTROL BLOCK FOR SUPVR 
1979 * 6 BAL $WRT,R6 WRITE 0031FO 4CA6 2096+ TBTR R4, $LE) RESET LEVEL ERROR INDICATOR 
1980 * 7 0031F2 4C62 2097+ TBTS (R4,XT) SET EXPECTED INTR CONTROL BIT 
198 * 7 BAL  $FNT,R6 FORMAT 0031F4 600A 2098+ SVC TART CALL SUPVR FOR I/O COMMAND 
1983 * 8 BAL XIOCS,R6 CYCLE STEAL STATUS 0031F6 4CAT7 2100+ TBTR R44, NI IS AN INTR EXPECTED 
1984 * . . : 0031F8 6ACO 0002 2101+ BN tRer by) * NO, RETURN TO USER 
1985 * 9 BAL $DIAG,R6 READ DIAGNOSTICS 2102+* 
1986 ” . 2103+% THE INTR SHOULD OCCUR WHILE SPINNING IN THE NEXT SECTION 
* Z 
00314A 4020 32AC 309E 1988 $SEEK MVA  SKDCB,1ODCB SET UP CONTROL BLOCK FOR SVC CALL 0031FC 0D00 2105+ MVBI X*O0*,R5 SET UP WCRK REG FOR ‘LOST INTR' 
003150 502c 1989 J Kio.” OO031FE 4CA3 2106+XI08 TBTR (R4,1f) HAS INTERRUPT BEEN RECEIVED 
1990 * 003200 1238 2107+ JON XIOCK * YES, CHECK IF ALL WAS SATISFACTORY 
003152 40620 32AC 306E 1991 S$RECL MVA  CLDCB,IODCB SET UP BLOCK FOR SVC CALL 003202 6002 2108+ svc IDLE ALLOW ANCTHER PROGRAM A CHANCE TO RUN 
003158 5028 1992 a XIO 2109+* SUPVR WILL RETURN HERE 
1993 003204 7DA1 0001 2110+ AWL 1,R5 ADVANCE TIME OUT COUNT 
o0a1s4 4020 22Kc 209% 4994 SRDID vA, ReDeE, Once, SET, UP, BLOCK FOE SUC CALL o03338 gEE4 sit ats Ee Bot Gh EMS Cbyheon pg 
SCTI INVALIDATE SECTOR ID BUFFER AREA 4 
003166 4020 2ECO 9999 1996 MVWI X#99S9"¢SCTID+2 * 00320C 68D2 0000 2113+ B tet * ERR ‘NO INTERRUPT! 
00316C 5O1E 1997 J XIO aN Oe ee ee are Oe eT nga aN OLE ere cee e ere TOE gee 
1998 * tk 
00316E OBEF 1999 $RD MVBI 255,R3 INIT READ BUFFER TO FFtS 2117+* SUBROUTINE 
003170 6D08 30EC 2000 MV RDDCE+14,R5 * 2118+* 
003174 4724 0400 3001 MVWI x*O400', 7 M 2119+% I/O EXECUTE ERROR HANDLING ROUTINE 
OO347a 4600 32ac 30DE «= 3003 srps aA © RabdR Od 5 $131%% EURECSE 
MVA  RDDCE,IODCB SET UP BLOCK FOR SVC CALL 
003180 5014 2004 J x10 * 2122+* 
2005 * 2123+* THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE 
003182 4020 32AC 30CE 2006 $RDVY MVA VEDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 2124+ FROBLEM THAT WAS FOUND WHEN THE I/O COMMAND WAS ISSUED BY THE 
003188 5010 2007 . J XIO Z125+% SUPERVISOR AND IT WAS NOT ACCEPTED. 
00318a 4020 32AC 30BE 2009 $WRT MVA WRDCB,IODCB SET UP CCNTROL BLOCK FOR SVC CALL 2127+* CALLING SEQUENCE 
003190 500c 20 10 J XIO 2128 +* 
RiGee. ecg: BGae ea 2011 : 2129+% SUPVR WILL ENTER WHEN AN ERROR CCCURS ON AN I/0 COMMAND 
3 20 32A E ; FMT MVA  FRDCB,IOLCB SET UP CONTROL BLOCK FOR SVC CALL 
003198 5008 2013 J xIO 2131+* RETURN CONTROL 
00319A 4020 32AC 305E 2014 $DIAG MVA  DGDCB,IODCB SFT UP CONTROL BLOCK FOR SVC CALL 2132+* 
ieee toes 32AE 000D e018 MNVWL x 10006", 1¢HoD MOLIFIER FOR DIAG OP Sanne B (R6) * RETURN TO USERS ERROR HANDLER 
COO3TA8 5601 2017 CEOPZ oie (RE, 2) DUMMY RETURN TO USER Be te eC ey Oey Pew eT ee eR ee ye Te ee Pee Ree 
2018 * 4 +* 
2019 XEQIT 1 2137+* CC O= DEVICE NOT ATTACHED 
20 20 & ¥ KH EE EO OOO gi ao kk koko i tok tok dolok tok 4k 29 J UL 76 ** 2138+* FOR 1= DEVICE BUSY 
2021+* 2139+* I/O 2= DEVICE BUSY AFTER RESET 
Z022+* SUB-ROUTINE 2140 4% 3= CCMMAND REJECT 
2023+* 2141+% Y= INTERVENTION REQUIRED 
2024+* EXECUTE INPUT AND OUTPUT CCMMANECS 2142+* 5= INTERFACE DATA CHECK 
2025+* 2143+* 6= CCNTROLLER BUSY 
2026+* PURPOSE 214 44% 7= IfO COMMAND EXCEPTED 
2027+% 2145+4* 
2028+* TO EXECUTE ALL I/O CGMMANDS FROM A CCMMON PLACE. 003210 706E 2146+XIOER DC X*706E* COPY STATUS ANY LEVEL INTO R3 
2029+* THIS SUBROUTINE WILL DO THE FOLLOWING FUNCTIONS: 003212 336A 2147+ SRL 13, R83 POSITION CC CODE TO BITS 13-15 
30300 o33318 5858 3588 gigs ges aagenoms sreoby to Poet Pe ABE na ocen 
+ : RN TO R E 
aero L THE I/O COMMAND. THAT PCINTS TO THE INSTRUCTION THAT STARTED DAG 1 CRE RERE © 5EEAUS Oe e044 ERAE CREST OROSE Oe eee eee eiee nese eee Vupneee 
2033+* 2. SAVES THE DCB BLOCK USED UNLESS IT IS A START CYCLE STATUS 2152+* IL 
20 34+* ISSUED BY THIS SUBROUTINE. 2153+* SUB-ROUTINE IL 
2035+* 3. CLEAR OUT THE CYCLE STEAL STATUS STORAGE UNLESS THE 2154+* IL 
2036+* START CYCLE STATUS WAS ISSUED BY THIS SUBROUTINE. 2155+4+* ERROR INTERRUPT RUNS ON INTERRUPT LEVEL '$INTL® IL 
2037+* 4. RESETS THE INTERRUPT INDICATOR AND CHECKS FOR ANY INTERRUPT 2156+* IL 
2038+* SINCE THE LAST EXPECTED INTERRUPT. IF AN INTERRUPT IS FOUND, 2157+* PURPCSE IL 
2039+* MYSTERY INTERRUPT (MI) CONTROL BIT IS SET. 2158+* IL 
2040+4+* 5. MOVES THE ADDRESS OF THE I/O CONTROL BLOCK IN R7, SET THE 2159+* THIS ROUTINE WILL BE ENTERED WHEN THE SUPVR DETECTS AN ERROR IL 
2041+* EXPECTED INTERRUPT CONTROL BIT AND ISSUE THE *své START". 2160+* OR THE INTERRUPTING CONDITION CODE DOES NOT AGREE WITH THE IL 
2042+% 6. WHEN THE SUPVR RETURNS AFTER ISSUING THE I/O COMMAND, TIMING 2161+* EXPECTED CODE. IL 
2043+* STARTS TO DETERMINE A LOST INTERRUPT. 2162+* IL 
2044+* 7. EXCEPY THE INTERRUPT AND GATHER INFORMATION TO DETERMINE IF IT 2163+* CALLING SEQUENCE IL 
20405+4* WAS AN ERROR OR OKAY AND EXIT OFF THE INTERRUPT LEVEL. 21644* IL 
2046+4+* 8. CHECK IF THERE WAS A WRONG INTERRUPT LEVEL. 2165+* SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O INTERRUPT IL 
2047+* 9. CHECK IF AN ERROR WAS EXPECTED AND IF THERE WAS RETURN. 2166+* IL 
2048+% 10. CHECK IF THERE WAS AN ERROR CONDITION, IF NOT RETURN. 2167+* RETURN CONTROL IL 
2049+* 11. CHECK TO SEE IF THE EXERCISER IS TO BE TERMINATED. 2168+* IL 
2050+* 12. CHECK IF A CYCLE STEAL OPERATION WAS IN EROGRESS THAT WAS 21694* SVC EXIT RETURN TO USER VIA SUPVR IL 
2051+* ISSUED BY THIS SUBROUTINE. 2170+* IL 
2052+4+* 13. CHECK THE ISB BITS THAT ARE ON. IF BIT O IS ON ISSUE A 217 1H ERK KK RK KK KE OR ROO OR ROR RIOR IORI OK dak ROR tok kok kiko dor TD 
2053+* CYCLE STEAL STATUS COMMAND. CHECK FOR ANY OTHER BIT BEING ON, 2172+* IL 
20544+* COUNT IT AND SET UP THE PROPER ERROR MESSAGE TO BE PRINTED. 217 3+* Q= CONTROLLER END ISB O= ADD STATUS IL 
2055+* 2174+* 1= PROGRAM CONTROL INTERRUPT BITS = COMD REJECT IL 
2056+* CALLING SEQUENCE 2175+* 2= EXCEPTION INTERRUPT FOR 2= INCOR LENGTH IL 
2057+* 2176+* 3= DEVICE END INTERRUPT INTR 3= DCB SPEC CK IL 
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LUCIR OBJECT TEXT STMT SCURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR ObJECT TEXT STMT SOURCE STATEMENT -COPYRIGHT IbM CORP 1976 
QUFTFO 2413+PIDMSG10 EQU X*F1FO® 2530 44K HH HH IO OR OOO AOR IO OK KEE) GF EB 76 #* 
000080 24 «4+BITO080 EQU X*0080* 2531+* 
2415+ 2532+* TEST UNIT 
sales CATA CONTROL BLOCK FOR CONVERTING HEX TO EBCDIC 25334* 
2417+* 25344 DIRECT PROGRAM CONTROL TEST UNIT 14APP76 
003470 0030 2418+HEBLK DC 8) NUMBER OF BYTES TO CONVERT 2535+* 
003472 ZEBOo 24194 DC $4 ID) FROM ADRS 2536+* PURPOSE 
CO3474 181A 2420+ DC TUWORK) AND THE TO ADRS 2537+* 
2421 * 2538+* THREE PARAMETERS ARE NEEDED FOR THE EXECUTION OF THIS TU AND ARE: 
2423 COPY T3C00 2539+* s 
2424 1T3C00 TULT 2540+ 1. ONE BYTE OF FUNCTION-MODIFIER,IE, X*5F* FOR DPC WRITE 
20 25 ROR ROT IO IGG OR OO GR tok kata ok ck 6 PEB76 %« 2541+4+* 2. TWO BYTES OF DATA TO BE USED’ IN CHE SECOND PART OF The IDCL, 
2426+% 2542+* - IE, X*0005* TO BE SENT TO THE DEVICE. 
2427+* TEST UNIT 2543+4+* . 
24 284* 2544 4* THIS TEST UNIT PREPARES THE DEVICE AND EXPECTS AN INTERRUPT 
Zh234% DIRECT FROGRAM CONTROL TEST UNIT O4MAY 76 gous AND WILL SEND BACK THE CONDITION CODES OF THE I/O AND INTR. 
430+ + 
2431+* PURPOSE 2547+* CALLING SEQUENCE 
2432+ 25484 
24 334% THREE PARAMETERS ARE NEECED FOR THE EXECUTION OF THIS TU AND ARE rea ee MDI=@TUXX,1T3C03,2,0708, EQ, PLNG=6, PRAM=FMXXXX'* 
Z + e ~~ 
2435+% 1. ONE BYTE OF FUNCTION-MODIFIER '60" FOR PREPARE 25514#* RETURN CONTROL 
2436+* 2. TWO BYTES OF DATA TO BE USED IN e Sut SECOND PART OF THE IDCB, 2552+% : 
susie - IE, X*0C05' TO SELECT LEVEL 2 FOR AN INTERRUPT. Ft pe! B TURTN* RETURN TO MDL SUPERVISOR 
+ 
eee CALLING SEQUENCE 256 DH HK Re he ok aK Eo ok Ko ok kK kk kk kt ok kak kk koko dak kak kk kk kkk ORR a kk afk ak ak te ake te ake ak 
2440+* 003514 6FOD 2EEE 2556+T3C03 MVW R7, TURTN SAVE RETURN ADDRESS 
2441+% MDI=O1UXX,1T3C00,2,0708, EQ, PLNG=6, PRAM=FFXXXX* 003518 4020 2EB6 3C03 2557+ MVWI X*$C03", $TUID SAVE TU ID FOR DISPLAY 
24U42+% 00351E 4424 2EBO 2558+ MVA OPTNT, R4 SET UP POINTER ADRS IN R4& 
2443+* RETURN CONTROL 603522 6E03 32BC 2559+ BAL SCONC, R6 CLEAR DEV DEP STG AND CONNECT I/C EL 
24444+* 003526 32FA 2560+ DC A ($ERR$) ERROR ADRS FOR INVALID PREP 
24454 B TURTN* RETURN TO MDI SUPERVISOR 2561+* 
2446+* 003528 4020 2EB8 0708 2562 MVWI x1 0708" STOLN INIT THE CONDITION CODES 
Pion eg ee ee eee re err e re OO0352E 6908 189A 2563 MVW TUPA SET UP PARM ADRS 
003476 6FOD 2EEL 24484+T3C00 MVN R7,TU SAVE RETURN ADDRESS 003532 8118 3568 2564 MVB (R1 en SEO 3L * AND SET IN FUNCTION-MODIFILK 
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C034B8 100E 2467 JZ T3CO0OS * SEND EACK THE RESULTS IF READ DPC 2583 * 
VOS4UBA F002 2468 CBI X*02*,RO IS If A READ STATUS 2584 * IDCB FOR DIRECT PROGRAM CONTROL CCMMAND 
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+ 
2508+* RETURN CQNTROL 
2509+* 
ee B TURTIN* RETURN TO MDI SUPFRVISOR 
+ 
VERO S STS LS SS SSS SS LSS LS SSS SSS SLES SSL SSS SS SS SSS SSL TC LSS SSS SSS SSS SS SSS SS 2 ee 2 
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DECLARED NANE ATTRIBUTES AND REFERENCES DECLARED NAME ATTRIBUTES AND KEFERENCES 
645 NOO007 ADDRESS. HEX LCCATICN(000026C6) IN CSECT(I4800 ) LENGTH(2) 501 1045 
333 1071 NOO0064 ADDRESS. HEX LCCATION(00002988) IN CSECT(I4800 ) LENGTH(2) 
648 N00008 ADDRESS. HEX LOCATION(000026CA) IN CSECT(I14800 ) LENGTH (2) 504 
336 634 1074 NO0065 ADDRESS. HEX LOCATION(0000298C) IN CSECT(I4800 ) LENGTH(2) 
651 NO0009 ADDRESS. HEX LOCATION(O000026CE) IN CSECT(I4800 ) LENGTH(2) 507 1960 
339 607 1086 N00066 ADDKESS. HEX LCCATICN(000029A2) IN CSECT(I4800 ) LENGTH (2) 
663 NO0010 ADDRESS. HEX LCCATION(000026E2) IN CSECT(I4800 ) LENGTH(2) 510 
342 1u89 NO0067 ADDRESS. HEX LOCATION(000029A6) IN CSECT(I4800 ) LENGTH(2) 
666 Nuv0011 ADDRESS. HEX LOCATION(000026E6) IN CSECT(14800 ) LENGTH(2) 513. 1075 : 
345 65 1101 NO0068 ADDRESS. HEX LOCATION(000029B8) IN CSECT(I4800 ) LENGTH(2) 
078 N00012 ADDRESS. HEX LOCATION(OCOO26FC) IN CSECT({I4800 ) LENGTH(2) 516 
348 1104 NO00069 ADDRESS. HEX LOCATION(000029EC) IN CSECT(I4800 ) LENGTH(2) 
690 N00013 ADDRESS. HEX LCCATiON(0000270E) IN CSECT(I4800 ) LENGTH(2) 519 1090 
351 1116 NO0070 ADDRESS. HEX LOCATION(000029D2) IN CSECT(I4800 ) LENGTH(2) 
702 NOOO14 ADDRESS. HEX LOCATION (00002720) IN CSECI(I4800 ) LENGTH(2) 522 
354 1119 NO0071 ADDRESS. HEX LCCATION(000029D6) IN CSECT(14800  ) LENGTH(2) 
714 NO0015 ADDRESS. HEX LOCATION (00002732) IN CSECT(I4800 ) LENGTH (2) 525 1105 
357 1131 NO00072 ADDRESS. HEX LOCATION(QOQ029EA) IN CSECT(I4800 ) LENGTH(2) 
717 NO0016 ADDRESS. HEX LCCATION(0C002736) LN CSECT(I4800 ) LENGTH(2) 528 ; 
360 70 1134 NO00073 ADDRESS. HEX LOCATION(000029EE) IN CSECT(I4800 ) LENGTH(2) 
729 NOOU17 ADDRESS. HEX LOCATION(O000274A) IN CSECT(I4800 ) LENGTH(2) 531 1120 
363 1146 NOOO74 ADDRESS. HEX LCCATION(00002A00) IN CSECT(14800 ) LENGTH(2) 
732 NO0018 ADDRESS. HEX LCCATION(O000274E) IN CSECT(I4800 ) LENGTH (2) 534 
366 ~=©718 1149 NUOO75 ADDRESS. HEX LOCATION(OOOOZA04) IN CSECT(I4800 ) LENGTH (2) 
744 NO0019 ADDRESS. HEX LOCATION(06002766) IN CSECT(I4800 ) LENGTH(2) 537. 1135 
369 1161 N00076 ADDRESS. HEX LOCATION(00002A16) IN CSECT(I4800 ) LENGTH(2) 
747 NO00Z0 ADDKESS, HEX LOCATION (0000276A) IN CSECT(I4800 ) LENGTH(2) 540 
; 372 733 1107 N00077 ADDRESS. HEX LCCATION(00002A22) IN CSECT(I4800 ) LENGTH(2) 
753 N000z1 ADDRESS. HEX LCCATION(00002776) IN CSECT(14800 ) LENGTH(2) 543 14150 } 
375 69 1179 NO0078 ADDRESS. HEX LOCATION(0000ZA34) IN CSECT(I4800 ) LENGTH(2) 
756 NO0022 ADDRESS. HEX LOCATION(0000277A) IN CSECT(I4800 ) LENGTH (2) 546 
j ; 378 679 1182 NO0079 ADDRESS. HEX LOCATION(00002A38) iN CSECT(I4800 ) LENGTH(2) 
759 N00023 ADDRESS. HEX LOCATION(0000277E) IN CSECT(i4800 ) LENGTH(2) 549 1168 
381 667 1291 1194 NO0080 ADDRESS. HEX LOCATION(OOOO2A4A) IN CSECT(I14800 ) LENGTH(2) 
771 NO0024 ADDRESS. HEX LCCATION(00002792) IN CSECT(I4800 ) LENGTH(2) 552 
384 12006 NO0081 ADDRESS. HEX LOCATION(00002A56) LN CSECT(I4800 ) LENGTH(2) 
774 N00025 ADDRESS. HEX LOCATION(G0002796) IN CSECT(I4800 ) LENGTH(2) : 555 1183 
387 760 1212 N00082 ADDRESS. HEX LOCATION(00002A68) IN CSECI(I4800 ) LENGTH(2) 
780 NOOG2e ADDRESS. HEX LOCATION (000027AC) IN CSECT(14800 ) LENGTH(2) ; 558 
390 1215 N00083 ADDRESS. HEX LOCATICN{O0002A6C) IN CSECT(I4800 ) LENGTH(2) 
769 NO0027 ADDRESS. HEX LCCATION(000027B0) IN CSECT(I4800 ) LENGTH(2) : 561 1201 
393.775 1227 NOOO84 ADDRESS. HEX LOCATION(00002A7E) IN CSECT(I4800 ) LENGTH(2) 
601 NO0028 ADDRESS. HEX LOCATION(000027C6) IN CSECI(I4800 ) LENGTH(2) 564 
396 1233 NO0085 ADDRESS. HEX LOCATION(O0O02A8A) IN CSECT(I4800 ) LENGTH(2) 
804 NO0U29 ADDRESS, HEX LOCATICN(000027CA) IN CSECT(14800 ) LENGTH(2) 567 1216 
399 790 1245 NO0086 ADDRESS» HEX LOCATION(OQ002AA4) IN CSECT(I4800 ) LENGTH(2) 
616 N00030 ADDRESS. HEX LOCATION(000027E0) IN CSECT(I4800 ) LENGTH(2) 570 
4OzZ : 1251 NO00087 ADDRESS. HEX LOCATION(00002AB0) IN CSECT(I4800 ) LENGTH(2) 
819 N00031 ADDRESS. HEX LCCATION(0Q00Z7E4) IN CSECT(14800 ) LENGTH (2) 573 1234 
; 405 805 1263 NO0088 ADDRESS. HEX LCCATION(00002ACA) IN CSECT(I4800 ) LENGTH(2) 
831 N00032 ADDKESS. HEX LOCATION(O0O027FA) IN CSECT(I4800 ) LENGTH(2) 576 
408 1269 NO0089 ADDRESS. HEX LOCATICN(OCOOZAD6) IN CSECT(I4800 ) LENGTH (2) 
834 N00033 ADDRESS. HEX LCCATICN(000027FE) IN CSECT(i4800 ) LENGTH(2) 579 1252 . 
411. 82 58 OF ABSOLUTE. HEX VALUE (00000202) 
846 NO00034 ADDRESS. HEX LOCATION(00002814) IN CSECT(I4800 ) LENGTH(2) 1137. 1152 1170 1185 1203°°1218 1254 
414 57 ON ABSOLUTL. HEX VALUE (00000200) 
B49 NO0035 ADDRESS, HEX LOCATION (00002818) IN CSECT(I4800 ) LENGTH (2) 1236 
417 835 1392 OPTN1 ADDRESS. HEX LOCATION (OQOQ2EEQ) IN CSECT(I4800 ) LENGTH(2) 
861 N00036 ADDRESS. HEX LCCATION({0000282E) IN CSECT(I4800 ) LENGTH(2) 1642 1761 2184 2224 2450 2515 2558 
420 1415 OPTN3 ADDRESS. HEX LOCATION(QOOO2EB4) IN CSECT(I4800 ) LENGTH(2) 
bo4 NO0037 ADDKESS. HEX LOCATION(000C02832) IN CSECT(I4800 ) LENGTH(2) 1684 2271 2319 
423 850 101 PARMARA ADDRESS. HEX LOCATION (0000196E) IN CSECT(I4800 _) LENGTH(1) 
& 76 N00038 ADDRESS. HEX LCCATION(00002848) IN CSECT(14800 ) LENGTH(2) 601 616 628 643 “661 4676 #688 700 £712 
426 727 #742 769 #+%784 $799 814 829 £844 ~~ 859 
e749 N00039 ADDRESS. HEX LOCATION(0000284C) IN CSECT(I4800 ) LENGTH(2) 874 8859 904 919 934 949 964 979 994 
429 865 1009 1024 1039 1054 1069 1084 1099 1114 1129 
691 NOOU40 ADDRESS. HEX LOCATION(00002862) IN CSECT(I4800 ) LENGTH(2) 1144 1159 1177) 1192 1210 1225 1243 1261 
432 69 PID ADDRESS. HEX LCCATION(00001800) IN CSECT (14800 LENGTH (1) 
694 NOO0O41 ADDRESS. HEX LCCATION(00002866) IN CSECT(I4800 ) LENGTH(2) 71 72 73 74 75 76 77 78 9 
435 880 80 81 82 83 84 85 86 87 88 
406 NO0042 ADDRESS. HEX LOCATION(0000287C) IN CSECT(I4800 ) LENGTH(2) 89 90 91 92 93 94 95 96 97 
438 98 99 100 101 102 103 104 +105 #106 
909 NO0043 ADDRESS. HEX LOCATION (00002880) IN CSECT(I14800 ) LENGTH(2) 107, 108 $109 110 #111 + &«2©°112 2378 
441 895 2413 PIDMSG10 ABSOLUIF. HEX VALUE (QOCOF1FO) 
921 NOOO44 ADDRESS. HEX LCCATION(00002894) IN CSECT(I4800 ) LENGTH(2) 2378 
44 1509 PREP ABSOLUTE. HEX VALUE (0Q00000C) 
924 NOOO4S ADDRESS.» HEX LOCATION(0U002898) IN CSECT(I4800 ) LENGTH (2) 2333 
j 447 910 1897 KkDDCB ADDRESS. HEX LCCATION(000030DE) IN CSECT(I4800  ) LENGTH(2) 
940 NOOO46 ADDKESS. HEX LOCATION(QO0028AA) IN CSECT(14800 ) LENGTH(2) 2000 2003 
450 1520 kELSD ABSOLUTE. HEX VALUE (C0000017) 
939 NO0047 ADDRESS. HEX LOCATION(O00028AE) IN CSECT(I4800 ) LENGTH(2) 2388 
453 925 1519 REQSD ABSOLUTh. HEX VALUE (00000016) 
951 NO0048 ADDRESS. HEX LOCATION(000028C4) IN CSECT(I4800 ) LENGTH(2) i 2321 
456 1505 RESET ABSOLUTE. HEX VALUE (00000008) 
954 NOOO49 ADDRESS. HEX LOCATION (000028C8) IN CSECT(I4800 ) LENGTH(2) 1656 
459 940 1288 1516 RICB ABSOLUIE. HEX VALUE (00000013) 
966 NOGO050 ADDRESS. HEX LCCATION(O00028DE) IN CSECT(14800 ) LENGTH(2) 2390 
462 1506 RID ABSOLUTE. HEX VALUE (00000009) 
464 NOO051 ADDRESS. HEX LOCATION(000028E2) IN CSECT(I4800 ) LENGTH(2) 1666 
465.9 1641 RSDCb ADDRESS. HEX LCCATION(0000308E) IN CSECT(I4800 ) LENGTH(2) 
981 N00052 ADDRESS. HEX LOCATION(000028F4) IN CSECT(I4800 ) LENGTH(2) 1994 
j 468 1455 SCT1D ADDRESS, HEX LOCATION(OOOQ2EBE) IN CSECT(14800  ) LENGTH(2) 
984 N00053 ADDKESS. HEX LCCATION(000028F8) IN CSECT(I4800 ) LENGTH(2) 1848 1995 1996 
471 970 1852 SKDCB ADDRESS. HEX LOCATION(0000309L) IN CSECT(I4800 ) LENGTH(2) 
990 NO0054 ADDRESS. HEX LOCATION(OQ000290E) IN CSECT(I4800 ) LENGTH(2) 1669 1670 1988 
474 1507 START ABSOLUTE. HEX VALUE(CO00000A) 
999 NOO055 ADDRESS. HEX LOCATION (00002912) IN CSECT(I4800 ) LENGTH(2) 2098 
477 985 104 SUPSTAT ADDRESS. HEX LOCATION(00C019C4) IN CSECT(14800 ) LENGTH(1) 
1011 N00056 ADDRESS. HEX LOCATION(00002926) IN CSECT(I4800 ) LENGTH(2) 381 
480 1481 SVCAL ADDRESS. HEX LOCATION(OOOO2EF2) IN CSELCT(14800  ) LENGTH(2) 
10.14 NO0057 ADDRESS. HEX LOCATION(0000292A) IN CSECT(I4800 ) LENGTH (2) 2320 2386 2387 
483 1000 16063 TLME ADDRESS. HEX LOCATION(00002F34) IN CSECT(I14800  ) LENGTH(2) 
10.26 NOOO5S8 ADDRESS. HEX LOCATION(00002940) IN CSECT(I4800 ) LENGTH (2) 664 
486 92 TUMSGWTR (ADDRESS. HEX LCCATION(000018BA) IN CSECT(14800  ) LENGTH(1) 
1029 NOO059 ADDRESS. _ HEX LOCATION({00002944) IN CSECT(I4800 ) LENGTH (2) 83 
489 1015 76 TUPARM1 ADDRESS. HEX LOCATION(0000189A) IN CSECE(I4800  ) LENGTH(1) 
1041 NOU060 ADDRESS. HEX LOCATION (00002956) IN CSECT(I4800 ) LENGTH(2) 2455 2522 
492 98 TURESUL ADDRESS. HEX LOCATION (Q0U0018C8) IN CSECT (14800 ) LENGTH (1) 
1044 NU0061 ADDRESS. HEX LOCATION(0000295A) IN CSECT(14800 ) LENGTH(2) 1649 16050 1651 1652 1653 1654 1681 1682 16 
495 1030 1684 1697 1698 1699 1700 1701 1702 17605 176 
1056 NOUU06Z ADLRESS. HEX LOCATION (00002970) IN CSECT(I4800 ) LENGTH (2) ie? 1768 1 69 1770 1777, «1778 21779 #17800 247 
1059 NO0063 ADDRESS. HEX LCCAT1ON(00002974) IN CSECT(14800 ) LENGTH (2) 1479 TURTN ADDRESS. HEX LOCATION (QOOO2EEL) IN CSECT(L14800  ) LENGTH(2) 
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DECLARED NAME ATTRIBUTES AND REFERENCES 
1640 1759 2391 2448 2513 2556 
74 TUSTATUS ADDRESS. HEX LCCATION(00001818) IN CSECT(I4800 ) LENGTH(1) 
75 TUWORK oADDRESS, HEX LOCATION (0000181A) IN CSECT(I4800 ) LENGTH(1) 
1693 TO1A ADDRESS. HEX LOCATION (00002F9E) IN CSECT(I4800  ) LENGTH (2) 
16095 T01B ADDRESS. HEX LCCATION(00002FA2) IN CSECT(I4800 ) LENGTH(2) 
1081 TO 1C ADDRESS, HEX LOCATION (00002F76) IN CSECT(I4800 ) LENGTH(6) 
1703 TOWER ADDRESS. HEX LOCATION(00002FBE) IN CSECT(I4800 ) LENGTH (2) 
1097 TO 1R ;ADDRESS. HEX LOCATION(00002FA6) IN CSECT(I4800 ) LENGTH (4) 
1689 T01Z ADDRESS. HEX LOCATION (0Q002F92) IN CSECT(14800 ) LENGTH(6) 
2448 T3C00 ADDRESS. HEX TCCATION (00003476) IN CSECT (14800 Y LENGTH (4) 
593 608 635 668 £2734 76 791 806 821 
836 851 866 881 896 941 956 1016 1076 
2488 TICOOL ADDRESSs HEX LCCATION (000034 EG) IN CSECT(I4800 ) LENGTH(2) 
2456 2457 2458 2459 2460 2462 2470 2480 
2475 T3COON > ADDRESS. HEX LOCATION(000034CE) IN CSECT(I4800 ) LENGTH (2) 
£480 T3CO00S ADDRESS, HEX LOCATION (00003406) IN CSECT(I4800 ) LENGTH(6) 
2481 T3COOX ADDRESS. HEX LCCATION(000034DC) IN CSECT(I4800 ) LENGTH(6) 
2513 T3C01 ADDRESS. HEX LOCATION (000034EA) IN CSECT(I4800 ) LENGTH(4) 
1488 T3C02 ADDRESS. HEX LOCATION (00002EF6) IN CSECT (14800 ), LENGTH (6) 
620 680 692 704 #4761 26 (971 1001 1031 
1061. 1091 1121 1151 1184 1202 1217 1235 1253 
2556 T3C03 ADDRESS. HEX LOCATION (00003514) IN CSECT(I4800 ) LENGTH(4) 
2575 T3C03K ADDRESS. HEX LCCATION(00003556) IN CSECT(I4800 ) LENGTH (2) 
2586 T3C03L ADDRESS. HEX LOCATION (00903568) IN CSECT(I4800 ) LENGTH(2) 
2564 2565 2566 2567 2568 2570 
2579 T3C03M >ADDRESSs HEX LCCATION(0000355E) IN CSECT(I4800 ) LENGTH(6) 
1640 T4801 ADDRESS. HEX LOCATION(QO0O2EFE) IN CSECT(I4800 ) LENGTH (4) 
1759 T4853 {ADBRESS. HEX LOCATION (00002FC2) IN CSECT(I4800 ) LENGTH(4) 
1785 T53A ;ABBRESS. HEX LOCATION (00003028) IN CSECT(I4800 ) LENGTH(6) 
1789 T53B {ABDRESS. HEX LOCATION (00003038) IN CSECT(I4800 ) LENGTH (6) 
1794 T53C jABBRESS. HEX LOCATION (0000304A) IN CSECT(I4800 ) LENGTH(2) 
1795 T53D ADDRESS. HEX LOCATION(0000304C) IN CSECT(I4800 ) LENGTH(6) 
1801 T5 3X ABDRESS. HEX LOCATION (0000305A) IN CSECT(I4800 ) LENGTH (4) 
1799 T7532 ,BDDRESS. HEX LOCATION (00003058) IN CSECT(I4800  ) LENGTH(2) 
1886 VRDCB ADRESS» HEX LOCATION(000030CE) IN CSECT(I4800 ) LENGTH (2) 
1875 WRDCB ADDRESS. HEX LOCATION (000030BE) IN CSECT(14800 ) LENGTH(2) 
1431 XE ABSOLUTE. HEX VALUE (00000024) 
2191 2253 
1429 XI ABSOLUTE. HEX VALUE(00000022) 
2072 XIO ADDRESS., HEX LCCATION(000031AA) IN CSECT(I4800 ) LENGTH({4) 
1989 1992 1997 2004 2007 10 
£253 XIOCK ADERESS. HEX LOCATION (00003272) IN CSECT(I4800 ) LENGTH (2) 
2260 XIOCO > ADDRESS. HEX LOCATIGON(00003284) IN CSECT(I14800 ) LENGTH(2) 
2077 X1OCS ADDRESS. HEX LOCATION (000031B4) IN CSECT(I14800 ) LENGTH(6) 
2262 XIOCV ADDRESS. HX LOCATION (00003288) IN CSECT(I14800  ) LENGTH(2) 
2271 XLOCX ZADBRESS. HEX LOCATION (000032A2) IN CSECT(I14800 ) LENGTH(4) 
2146 XIOER ADDRESS. HEX LOCATION (00003210) IN CSECT(I4800 ) LENGTH (2) 
2081 XI01 j ADDRESS HEX LOCATION (000031C4) IN CSECT(14800 ) LENGTH(4) 
2094 X102 ADDRESS. HEX LOCATION (000031EA) IN CSECT(I14800  ) LENGTH (2) 
2106 x108 ADDRESS. HEX LOCATION (000031FE) IN CSECT(I4800 ) LENGTH(2) 
62 XTRNL ABSOLUTE. HEX VALUE(00000001) 
1165 1198 1231 1249 1267 ° 1273 
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